
 1000  *---------------------------------
 1010  *      APPLESOFT LINE INPUT SUBROUTINE
 1020  *---------------------------------
 1030         .OR $D52C
 1040         .TA $82C
 1050  *---------------------------------
 1060  MON.PROMPT .EQ $33
 1070  MON.RDLINE .EQ $FD6A
 1080  BUFFER     .EQ $200
 1090  *---------------------------------
 1100  AS.INLINE
 1110         LDX #$80     NULL CHARACTER
 1120  INLIN2 STX MON.PROMPT  FOR THE PROMPT CHARACTER
 1130         JSR MON.RDLINE  READ A LINE INTO BUFFER
 1140         CPX #239     TRUNCATE TO 239 CHARACTERS
 1150         BCC .1
 1160         LDX #239
 1170  .1     LDA #0       MARK END OF LINE WITH $00
 1180         STA BUFFER,X
 1190         TXA          # REAL CHARS IN LINE
 1200         BEQ .3       EMPTY LINE
 1210  .2     LDA BUFFER-1,X  STRIP OFF ALL SIGN BITS
 1220         AND #$7F
 1230         STA BUFFER-1,X
 1240         DEX
 1250         BNE .2
 1260  .3     LDA #0
 1270         LDX #BUFFER-1
 1280         LDY /BUFFER-1
 1290         RTS

